home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gekkan Dennou Club 147
/
Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z
/
Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin
/
docs
/
complex
/
julia3.bat
< prev
next >
Wrap
DOS Batch File
|
2000-07-08
|
2KB
|
56 lines
echo off
kt echo "3次方程式のジュリア集合を表示します。パラメータを入力して下さい。\n"
kt input reMin "実部最小 = " "-2"
if "%reMin%" == "" goto exit
kt input imMax "虚部最大 = " "2"
if "%imMax%" == "" goto exit
kt input scLen "辺の長さ = " "4"
if "%scLen%" == "" goto exit
kt input scSize "画面サイズ(0…256×256ドット, 1…512×512ドット) = " "0"
if "%scSize%" == "" goto exit
kt input mxCnt "回数制限(1~65535) = " "256"
if "%mxCnt%" == "" goto exit
kt input rot_f_limit "収束半径(収束したと判断する|f(z)|の上限) = " "0.01"
if "%rot_f_limit%" == "" goto exit
kt input Re_A "2次の係数の実部 = " "0.0"
if "%Re_A%" == "" goto exit
kt input Im_A "2次の係数の虚部 = " "0.0"
if "%Im_A%" == "" goto exit
kt input Re_B "1次の係数の実部 = " "0.0"
if "%Re_B%" == "" goto exit
kt input Im_B "1次の係数の虚部 = " "0.0"
if "%Im_B%" == "" goto exit
kt input Re_C "定数項の実部 = " "-1.0"
if "%Re_C%" == "" goto exit
kt input Im_C "定数項の虚部 = " "0.0"
if "%Im_C%" == "" goto exit
kt .machine
kt .select - MC68000 %machine%||if errorlevel 1 set type=000||goto run
kt .select - FPCP %machine%||if errorlevel 1 set type=881||goto run
kt .select - MC68030 %machine%||if errorlevel 1 set type=020||goto run
kt .select - MC68040 %machine%||if errorlevel 1 set type=040||goto run
kt .select - MC68060 %machine%||if errorlevel 1 set type=040||goto run
set type=000
:run
%type%\julia3 %reMin% %imMax% %scLen% %scSize% %mxCnt% %rot_f_limit% %Re_A% %Im_A% %Re_B% %Im_B% %Re_C% %Im_C%
:exit
set reMin=
set imMax=
set scLen=
set scSize=
set mxCnt=
set rot_f_limit=
set Re_A=
set Im_A=
set Re_B=
set Im_B=
set Re_C=
set Im_C=
set type=
set machine=